home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1984 Half 1 / rerun-1984-01-06-side-b.d64 / funkey apr p58 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  120 lines
  1. 10 print""
  2. 20 rem: funky monkey
  3. 30 poke36869,240
  4. 40 printchr$(147)chr$(28)tab(97)"xxxx
  5. 50 [153][199](31)[163]23)"funky monkey spells     a word
  6. 60 printtab(23)"some are ones you've    never heard
  7. 70 [153][163]23)"beat him spelling       if you can
  8. 80 printtab(23)"and put bananas in      your pan!
  9. 90 [153][199](28)[163]31)"xxxx
  10. 100 fort=1to2000:next
  11. 110 poke52,28:poke56,28:clr
  12. 120 fori=7168to7679:pokei,peek(i+25600):next
  13. 130 reada:ifa<0then340
  14. 140 forc=atoa+7:readj:pokec,j:next
  15. 150 goto130
  16. 160 data7512,0,0,0,0,0,1,10,22
  17. 170 data7528,0,31,32,64,128,0,0,1
  18. 180 data7392,0,128,64,32,32,32,64,128
  19. 190 data7168,18,18,18,19,11,7,3,15
  20. 200 data7504,31,127,255,255,221,8,0,0
  21. 210 data7408,0,128,192,192,192,192,128,224
  22. 220 data7384,18,34,34,35,19,18,10,6
  23. 230 data7400,102,102,127,129,20,20,0,0
  24. 240 data7656,144,144,136,136,144,80,96,64
  25. 250 data7648,2,2,2,1,1,0,0,0
  26. 260 data7664,129,66,60,24,1,194,60,0
  27. 270 data7544,64,64,64,128,0,0,0,0
  28. 280 data7416,255,255,255,255,255,255,255,255
  29. 290 data7488,255,255,0,0,0,0,0,0
  30. 300 data7448,32,112,63,31,31,15,15,7
  31. 310 data7456,0,0,255,255,255,255,255,255
  32. 320 data7464,0,0,252,254,254,252,248,240
  33. 330 data-1
  34. 340 p=1000:fs=0:ys=0:poke36869,255
  35. 350 printchr$(147)chr$(28)"_______"
  36. 360 fort=1to6:print"_"spc(5)"_":next
  37. 370 print"_______"
  38. 380 c$="+-\[157][157][157]@*^[157][157][157][]=[157][157][157]<>/"
  39. 390 printchr$(19)chr$(144)tab(46)c$
  40. 400 printchr$(19)tab(52)"funky monkey
  41. 410 [129]t[178]1[164]p:[130]
  42. 420 [153][163]9)"spells...":[129]t[178]1[164]p:[130]
  43. 430 [141]660
  44. 440 [153][199](19)[199](31)[163]122)[199](c);
  45. 450 [141]660
  46. 460 [139]c[178]65[176]c[178]69[176]c[178]73[176]c[178]79[176]c[178]85[167]480
  47. 470 [137]450
  48. 480 [153][199](19)[163]123)[199](c);
  49. 490 [141]660
  50. 500 [153][199](19)[163]124)[199](c)
  51. 510 [153][199](19)[199](28)[163]144)"((("
  52. 520 [153][199](19)[199](144)[163]255)[163]155);
  53. 530 [153]"funky has   you have
  54. 540 printchr$(17)fschr$(158)"#$%"chr$(144)"'s";
  55. 550 printspc(4)yschr$(158)"#$%"chr$(144)"'s
  56. 560 [153][199](17)[199](144)[199](29)"1st score of 10 wins";
  57. 570 [153][199](145)
  58. 580 [153][199](19)[199](31)[163]244);
  59. 590 [153]"did funky spell a     real word?
  60. 600 printtab(24)chr$(30)"press y or n
  61. 610 [161]g$:[139]g$[178]""[167]610
  62. 620 [139]g$[178]"n"[167]680
  63. 630 [139]g$[178]"y"[167]740:[137]610
  64. 640 [161]g$:[139]g$[178]""[167]640
  65. 650 [137]430
  66. 660 c[178][181]([187](.)[172]26)[170]65:[142]
  67. 670 [129]t[178]1[164]p:[130]:[142]
  68. 680 [141]870
  69. 690 [153][199](19)[199](31)[163]243);
  70. 700 [153]"can you make a real   word out of funky's?
  71. 710 getg$:ifg$=""then710
  72. 720 ifg$<>"y"andg$<>"n"then710
  73. 730 ifg$="y"then880
  74. 740 gosub870
  75. 750 fs=fs+1:printtab(198)chr$(144)fs
  76. 760 iffs=10then1070
  77. 770 printchr$(19)chr$(31)tab(244);
  78. 780 print"then funky gets a     banana!
  79. 790 p[178]2000:[141]670
  80. 800 [141]870
  81. 810 [153][199](19)[199](31)[163]244);
  82. 820 [153]"are you ready for     another word?
  83. 830 getg$:ifg$=""then830
  84. 840 ifg$<>"n"andg$<>"y"then830
  85. 850 ifg$="n"then830
  86. 860 ifg$="y"thenp=500:goto350
  87. 870 printchr$(19)tab(242);:fori=1to44:print" ";:next:return
  88. 880 gosub870
  89. 890 printchr$(19)chr$(30)tab(248)tab(68)"press return
  90. 900 [153][199](19)[199](31)[163]244)
  91. 910 [133]"type word";a$
  92. 920 [141]870
  93. 930 [153][199](19)[163]244)[163]68)[199](30)"press y or n
  94. 940 printchr$(19)chr$(31)tab(244)"is "a$" right?
  95. 950 [161]g$:[139]g$[178]""[167]950
  96. 960 [139]g$[179][177]"y"[175]g$[179][177]"n"[167]950
  97. 970 [139]g$[178]"n"[167]740
  98. 980 [141]870
  99. 990 ys[178]ys[170]1:[153][163]210)[199](144)ys
  100. 1000 [141]870
  101. 1010 [139]ys[178]10[167]1050
  102. 1020 [153][199](19)[199](31)[163]244)"you get a banana!
  103. 1030 p=2000:gosub670
  104. 1040 goto800
  105. 1050 printchr$(19)chr$(31)tab(248)"you win!
  106. 1060 [137]1100
  107. 1070 [141]870
  108. 1080 [153][199](19)[199](31)[163]246)"funky wins!"
  109. 1090 [137]1100
  110. 1100 [153][199](144):[129]j[178]1[164]12
  111. 1110 [153][199](19)[163]46)"   "[163]24)"   "[163]24)"   ";
  112. 1120 [153][163]24)"   "[163]24)"   "
  113. 1130 [153][199](19)[163]24)c$:[129]t[178]1[164]150:[130]
  114. 1140 [153][199](19)[163]24)"   "[163]24)"   ";
  115. 1150 [153][199](19)[163]24)"   "[163]24)"   "
  116. 1160 [153][199](19)[163]46)c$:[129]t[178]1[164]150:[130]:[130]
  117. 1170 [153]"    play again?"
  118. 1180 [161]a$:[139]a$[178]""[167]1180
  119. 1190 [139]a$[178]"y"[167][138]
  120.